home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
H245.ZIP
/
NFSRC21.ZIP
/
NWTTS3.ASM
< prev
next >
Wrap
Assembly Source File
|
1991-08-16
|
3KB
|
105 lines
; File......: NWTTS3.ASM
; Author....: James R. Zack
; CIS ID....: 75410,1567
; Date......: $Date: 15 Aug 1991 23:07:04 $
; Revision..: $Revision: 1.2 $
; Log file..: $Logfile: E:/nanfor/src/nwtts3.asv $
;
; This is an original work by James Zack and is placed in the
; public domain.
;
; Modification history:
; ---------------------
;
; $Log: E:/nanfor/src/nwtts3.asv $
;
; Rev 1.2 15 Aug 1991 23:07:04 GLENN
; Forest Belt proofread/edited/cleaned up doc
;
; Rev 1.1 12 Apr 1991 00:07:24 GLENN
; Librarian error! I didn't realize .asm functions _must_ obey the 10-char
; limit, so the linker can't find this routine because it was 11 chars.
; The function is now ft_ttsBegi(), although the old ft_ttsBegin() will
; work from Clipper. Apologies to Mr. Zack and everyone for careless
; renaming!
;
; Rev 1.0 01 Apr 1991 01:03:42 GLENN
; Nanforum Toolkit
;
; $DOC$
; $FUNCNAME$
; FT_TTSBEGIN()
; $CATEGORY$
; NetWare
; $ONELINER$
; Begin explicit transaction under NetWare's TTS
; $SYNTAX$
; FT_TTSBEGIN() -> nResult
; $ARGUMENTS$
; None
; $RETURNS$
; 0 - Success (transaction begun)
; 150 - Out of dynamic workspace (not begun)
; 254 - Implicit Transaction already active
; (active implicit transaction now converted to
; explicit transaction)
; 255 - Explicit transaction already active
; (existing explicit transaction continues normally)
; $DESCRIPTION$
; See your NetWare documentation for further information about the
; Transaction Tracking System (TTS).
; $EXAMPLES$
; nResult := FT_TTSBEGIN()
; DO CASE
; CASE nResult == 0
; ? "Transaction begun"
; CASE nResult == 150
; ? "Out of dynamic workspace, transaction not begun"
; CASE nResult == 254
; ? "Implicit transaction already active"
; CASE nResult == 255
; ? "Explicit transaction already active"
; OTHERWISE
; ? "Unknown result"
; ENDCASE
; $SEEALSO$
; FT_TTSABORT() FT_TTSAVAIL() FT_TTSEND() FT_TTSSTAT()
; $END$
;
;
PUBLIC FT_TTSBEGI
EXTRN __RETNI:FAR
EXTRN __RET:FAR
_NanFor SEGMENT 'CODE'
ASSUME cs:_NanFor
FT_TTSBEGI PROC FAR
push bp
mov bp,sp
push ds
push es
push si
push di
mov ah,0c7h ; Novell API function c7
mov al,00h ; Subfunction 02
int 21h ; TTS Begin Transaction
mov ah,00h
push ax
call __RETNI
add sp,2
pop di
pop si
pop es
pop ds
pop bp
call __RET
ret
FT_TTSBEGI endp
_NanFor ends
end